[VB编程]请解释一下这些代码的含义,详细点

来源：百度知道 编辑：UC知道 时间：2024/06/05 17:47:01
Private Sub Form_Load()
Picture1.Tag = 0
End Sub

Private Sub Command1_Click()
If Val(Picture1.Tag) = 0 Then
Picture1.Tag = 1
Picture1.Picture = LoadPicture("D:\1.jpg")
Else
Picture1.Tag = 0
Picture1.Picture = LoadPicture("D:\2.jpg")
End If
End Sub

Private Sub Form_Load() [窗体载入过程开始]
Picture1.Tag = 0 [图片1.标签=0]
End Sub [窗体载入过程结束]

Private Sub Command1_Click() 单机按钮1的时过程
If Val(Picture1.Tag) = 0 Then 如果图片1的标签等于0那么
Picture1.Tag = 1 图片1的标签=1
Picture1.Picture = LoadPicture("D:\1.jpg") 图片1加载图片 路径D:\1.jpg
Else 否则
Picture1.Tag = 0 图片1的标签等于0
Picture1.Picture = LoadPicture("D:\2.jpg") 图片1加载图片 路径D:\2.jpg
End If 如果条件句结束
End Sub结束过程!!!

就是通过按按钮command1来让picture1控件显示的图片在d:\1.jpg和d:\2.jpg之间切换。

......没学过VB的人飘过.....

路过